
Ae.Editor
 SetInt(1):copy "D:Edit.Pt":SetInt(""):If Key(1)=0 Gosub GetKey
 Use "E:BlackSpring","H:Msg",0:If Peek(10)=1 goto Ae.Abort
 Print ^:Print Chr$(12);:Clear #8:Copy "H:Msg",#8:Kill "H:Msg":Return

Ae.Abort
 Print ^:Print Chr$(12);:Edit(0):Kill "H:Msg":Return
